<% dim fs dim como dim id dim folder dim nombre_cat id = request.querystring("id") como = request.querystring("como") if como = "" then como = Session("como") if como = "" then como = "blanco" Session("como") = como if como = "blanco" then textoPulsado="#660033" else textoPulsado="#bfb69a" end if Set fs=Server.CreateObject("Scripting.FileSystemObject") SET Obj_Conn = Server.CreateObject("ADODB.Connection") Obj_Conn.ConnectionString = dsn_ruta Obj_Conn.Open SET Obj_RS = Server.CreateObject("ADODB.Recordset") %> Ruta del Vino de Rioja Alavesa
 
Inicio English | Euskera | <%=day(now)%> de <%SELECT CASE MONTH(now) CASE 1 response.write("Enero") CASE 2 response.write("Febrero") CASE 3 response.write("Marzo") CASE 4 response.write("Abril") CASE 5 response.write("Mayo") CASE 6 response.write("Junio") CASE 7 response.write("Julio") CASE 8 response.write("Agosto") CASE 9 response.write("Septiembre") CASE 10 response.write("Octubre") CASE 11 response.write("Noviembre") CASE 12 response.write("Diciembre") END SELECT%> de <%=year(now)%>   
<% if como = "blanco" then %> <% else %> <% end if %> <% if como = "tinto" then %> <% else %> <% end if %> <% if como = "crianza" then %> <% else %> <% end if %>
Buscador Próximamente Próximamente Ver como blancoVer como tintoVer como crianza

 

<% Obj_RS.Open "SELECT empresas.*,municipios.nombre as nombre_municipio FROM empresas " & _ "LEFT OUTER JOIN municipios ON empresas.municipio = municipios.id " & _ "WHERE empresas.id = " & id, Obj_Conn, 3, 3 if not Obj_RS.eof then SELECT CASE Obj_RS("categoria") CASE 1 nombre_cat="Dónde comer" CASE 2 nombre_cat="Dónde alojarse" CASE 3 nombre_cat="Bodegas a visitar" CASE 4 nombre_cat="Otros servicios" CASE 9 nombre_cat="Museos y enotecas" END SELECT %> <% end if 'Obj_RS.eof de la empresa %>
<%=nombre_cat%>
<%=Obj_RS("nombre")%> <% if fs.FolderExists(Server.MapPath("../../images/empresas/" & id)) then Set folder = fs.GetFolder(Server.MapPath("../../images/empresas/" & id)) i=0 For each filefound in folder.files i=1 %> <% exit for next if i = 0 then %> <% end if else %> <% end if %>

<%if Obj_RS("vino_joven") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>elaboración vinos jóvenes o cosecheros <% end if %> <% if Obj_RS("vino_crianza") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>elaboración vinos con crianza <% end if %> <% if Obj_RS("acogida") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>acogida de grupos <% end if %> <% if Obj_RS("cita_grupos") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>cita previa grupos <% end if %> <% if Obj_RS("visita_museo") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>visita a museos <% end if %> <% if Obj_RS("cita_visita") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>visita con cita previa <% end if %> <% if Obj_RS("visita_bodega") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>visita a bodega <% end if %> <% if Obj_RS("restauracion_reserva") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>restauración reserva previa <% end if %> <% if Obj_RS("visita_vinedo") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>visita a viñedo <% end if %> <% if Obj_RS("centrico") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>lugar céntrico <% end if %> <% if Obj_RS("cata") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>degustación y cata <% end if %> <% if Obj_RS("cita_cata") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>cata con cita previa <% end if %> <% if Obj_RS("visita_idiomas") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>visita en idiomas <% end if %> <% if Obj_RS("cita_idiomas") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>visita en idiomas con cita previa <% end if %> <% if Obj_RS("venta_vinos") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>venta de vinos <% end if %> <% if Obj_RS("venta_otros") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>venta otros productos <% end if %> <% if Obj_RS("parking") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>parking <% end if %> <% if Obj_RS("parking_autocares") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>parking autocares <% end if %> <% if Obj_RS("animales") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>animales de compañía <% end if %> <% if Obj_RS("historico") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>edificio histórico <% end if %> <% if Obj_RS("desayuno") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>desayuno <% end if %> <% if Obj_RS("media_pension") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>media pensión <% end if %> <% if Obj_RS("pension_completa") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>pensión completa <% end if %> <% if Obj_RS("derecho_cocina") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>derecho a cocina <% end if %> <% if Obj_RS("minibar") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>minibar <% end if %> <% if Obj_RS("ascensor") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>ascensor <% end if %> <% if Obj_RS("internet") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>internet <% end if %> <% if Obj_RS("alquiler_casa") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>alquiler casa entera <% end if %> <% if Obj_RS("minusvalidos") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>acceso minusválidos <% end if %> <% if Obj_RS("piscina") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>piscina <% end if %> <% if Obj_RS("servicios_eno") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>servicios enoturísticos <% end if %> <% if Obj_RS("calefaccion") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>calefacción en las habitaciones <% end if %> <% if Obj_RS("tv_habitaciones") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>tv en las habitaciones <% end if %> <% if Obj_RS("servicio_habitaciones") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>servicio de habitaciones <% end if %> <% if Obj_RS("bano_habitaciones") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>baño en las habitaciones <% end if %> <% if Obj_RS("telefono_habitaciones") then %><%if i = 8 then %>
<%i=0 end if i = i+1%>teléfono en las habitaciones <% end if %> <% if Obj_RS("numero_habitaciones")<>"" then %><%if i = 8 then %>
<%i=0 end if i = i+1%><%=Obj_RS( habitaciones" src="../../images/iconos/numero_habitaciones.gif" width="20" height="21"> <% end if %>

Dirección:
<%=Obj_RS("direccion")%>
C.P.: <%=Obj_RS("cp")%>
<% if Trim(Obj_RS("poblacion"))<>"" then %> Población: <%=Obj_RS("poblacion")%>
<% end if %> Municipio: <%=Obj_RS("nombre_municipio")%>" target="_self" class="enlaceCaja">[ver]

Tel.: <%=Obj_RS("telefono")%>
Fax.: <%=Obj_RS("fax")%>
E-Mail: " target="_blank" class="enlaceCaja"><%=Obj_RS("mail")%>
Web: " target="_blank" class="enlaceCaja"><%=Obj_RS("web")%>

Horario de visita: <%=Obj_RS("horario_cas")%>

<%=Replace(Obj_RS("descripcion_cas"), VbCrLf,"
")%>


 
Copyright 2005. Ruta del Vino de Rioja Alavesa   
<% Obj_Conn.Close SET Obj_Rs = Nothing SET Obj_Conn = Nothing %>